21160 IF MID$ (CODE$,1, LEN(VP$)) = VP$ THEN RETURN
21170 NEXT SI
21180 NEXT DI
21190 CODE$ = "ERROR"
21200 VTAB 10: HTAB 7: PRINT "PLEASE INSERT PROGRAM DISK ": VTAB 12: HTAB 7: PRINT "PRESS A KEY TO CONTINUE ";: GET Z$
21210 RETURN
22000 J = 0
22130 FOR DI = 1 TO 2
22140 FOR SI = 7 TO 1 STEP -1
22150 GOSUB 21010
22160 IF CODE$ = "ERROR" THEN GOTO 22170
22165 J = J +1
22166 VL$(J) = CODE$
22170 NEXT SI
22180 NEXT DI
22190 JV = J
22200 FOR J = 1 TO JV
22205 IF J >5 THEN GOTO 22300
22210 VTAB (J +9): HTAB 5: PRINT VL$(J)
22220 GOTO 22310
22300 VTAB (J +4): HTAB 20: PRINT VL$(J)
22310 NEXT J
22350 GOTO 26110
23000 VT$ = ""
23010 FOR J = 2 TO LEN(Z$)
23020 IF MID$ (Z$,J,1) = "/" THEN J = LEN(Z$): GOTO 23040
23030 VT$ = VT$ + MID$ (Z$,J,1)
23040 NEXT J
23130 FOR DI = 1 TO 2
23140 FOR SI = 7 TO 1 STEP -1
23150 GOSUB 21010
23160 IF MID$ (CODE$,1, LEN(VT$)) = VT$ THEN RETURN
23170 NEXT SI
23180 NEXT DI
23190 CODE$ = "ERROR"
23210 RETURN
25000 A = 1:M = 6:HT = 4:VS = 0: HOME
25010 GOSUB 6200
25015 IF CV = 27 AND N% = 1 THEN HOME : VTAB 5: PRINT "YOUR DEFAULT VALUES HAVE BEEN CHANGED": PRINT "DO YOU WISH TO SAVE THEM TO DISK ? ";: GET Z$: IF Z$ = "Y" OR Z$ = "y" THEN GOTO 25500
25016 IF CV = 27 THEN N% = 0: HOME : GOTO 25610
25020 ON CV GOTO 25022,25200,25400,25500
25022 A = 1:M = 11:HT = 4:VS = 0: HOME : GOSUB 6200
25024 IF CV = 27 THEN GOTO 25000
25025 ON CV GOTO 25030,26000
25030 TS = 0:TD = 0
25040 HOME : HTAB 1: VTAB 1: PRINT "ESC TO CANCEL": PRINT : PRINT "RETURN TO ACCEPT"
25050 VTAB 10: HTAB 9: PRINT "SLOT FOR DATA DISK : ";: IF TS = 0 THEN PRINT SL: GOTO 25070
25060 PRINT TS
25070 VTAB 10: HTAB 30: GET Z$: PRINT Z$
25080 IF Z$ = CHR$(27) THEN GOTO 25000
25090 IF Z$ = CHR$(13) AND TS = 0 THEN Z$ = STR$(SL): GOTO 25100
25092 IF Z$ = CHR$(13) THEN Z$ = STR$(TS): GOTO 25100
26105 VTAB 20: PRINT "DATA DISK MUST BE IN A DRIVE"
26110 VTAB 22: INPUT "";Z$
26120 IF Z$ = "Q" GOTO 25022
26130 IF Z$ = "q" GOTO 25022
26140 IF (Z$ = "V") OR (Z$ = "v") THEN GOTO 22000
26160 IF LEN(Z$) <2 THEN PRINT : PRINT : PRINT : PRINT "LENGTH OF NAME MUST BE GREATER THAN 1";: CALL 64668: GET Z$: GOTO 26020
26170 IF ASC(Z$) >90 AND ASC(Z$) <97 THEN GOTO 26200
26180 IF ASC(Z$) <65 OR ASC(Z$) >122 THEN GOTO 26195
26190 GOTO 26220
26195 IF ASC(Z$) < >47 THEN GOTO 26200
26196 GOTO 26220
26200 PRINT : PRINT : PRINT : PRINT "FILE NAME MUST BEGIN WITH A LETTER ";: CALL 64668: PRINT
26210 PRINT : PRINT "PLEASE DO NOT USE CHARACTERS OTHER THAN";: CALL 64668: PRINT : PRINT :: PRINT "LETTERS,NUMBERS OR PERIODS";: CALL 64668: GET Z$: GOTO 26020
26220 IF LEFT$(Z$,1) < >"/" THEN Z$ = "/" +Z$
26221 GOSUB 23000
26222 IF CODE$ = "ERROR" THEN HOME : VTAB 10: PRINT "PLEASE INSERT YOUR DATA DISK": PRINT "INTO AN AVAILABLE DRIVE AND TRY AGAIN ";: GET Z$: GOTO 26020
26225 PD$ = Z$
26230 IF MID$ (PD$, LEN(PD$),1) < >"/" THEN PD$ = PD$ +"/"